home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_219_Quick Update.bin < prev    next >
Text File  |  1995-11-23  |  1KB  |  42 lines
  1. ItemType: WIND
  2. Rect: 267,287,448,567
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Quick Update
  8. Params: i0_TopLeft┬i3_Text
  9.  
  10. ItemType: PUSH
  11. Rect: 56,253,128,273
  12. Name: Done
  13. DefaultItem: TRUE
  14. AutoClose: TRUE
  15.  
  16. ItemType: TEXT
  17. Rect: 1,1,200,18
  18. TextFont: Geneva
  19. TextSize: 9
  20. AutoSize: FALSE
  21. Name: Title
  22. Text: Click on an item & enter its new value
  23.  
  24. ItemType: LIST
  25. Rect: 8,47,173,243
  26. TextFont: Geneva
  27. TextSize: 10
  28. AutoSize: FALSE
  29. Name: list
  30. KeyScroll: TRUE
  31. Text: 
  32. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"list","SelectionText")┬if it¡empty then┬  if there is a cd it then┬    wsSet wdID,"value","Text",stripit(fld "balance" of cd it)┬    wsSet wdID,"value","Selection", "0,20"┬  end if┬else┬  wsSet wdID,"value","Text", ""┬end if┬--end mouseUp
  33.  
  34. ItemType: LBL
  35. Rect: 8,21,52,37
  36. Text: Value:
  37.  
  38. ItemType: TEXT
  39. Rect: 51,18,151,40
  40. Name: value
  41. LockText: FALSE
  42. Script: --on closeField  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"list","SelectionText")┬put it into cc┬if there is a cd cc then┬  get wsGet(wdID,"value","Text")┬  if it¡empty then┬    lock screen┬    set lockmessages to true┬    push cd┬    go cd cc┬    put stripit(it) into fld "balance"┬    send "updateImport" to this cd┬    wsSet wdID,"value","Text", ""┬    pop cd┬    unlock screen┬  end if┬end if┬--end closeField┬┬